SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO

CREATE PROC [dbo].[SP_TXMVTO_CNTB_I41]            
/*---------------------------------------------------------------------*/            
/*----- Empresa          : OFISIS S.A.                            -----*/            
/*----- Cliente          : OFISIS S.A.                            -----*/            
/*----- Sistema          : Contabilidad                           -----*/            
/*----- Modulo           : Empresa                                -----*/            
/*----- Programa         : Capitalizacion Asto Apertura           -----*/            
/*----- Nombre           : SP_TXMVTO_CNTB_I41                     -----*/            
/*----- Script           : TXMVTO_CNTB                            -----*/            
/*----- Desarrollado     : PDGV                                   -----*/            
/*----- Fecha            : 18/06/2004                             -----*/            
/*----- Base de Datos    : MS SQL Server                          -----*/            
/*----- Version BD       : 2000                                   -----*/            
/*----- Invoca a SP      :                                        -----*/            
/*---------------------------------------------------------------------*/            
/*---------------------------------------------------------------------*/        
/*----- Modificado 1 por : PDGV                                   -----*/        
/*----- Fecha Modifica   : 20/01/2005                             -----*/        
/*----- Detalle Modifica : APERTURA POR UNIDAD                    -----*/        
/*---------------------------------------------------------------------*/     
/*---------------------------------------------------------------------*/        
/*----- Modificado 2 por : Gustavo Espinoza E.                    -----*/        
/*----- Fecha Modifica   : 31/03/2005                             -----*/        
/*----- Detalle Modifica : Grabar Usuario y Fecha del APT         -----*/        
/*---------------------------------------------------------------------*/     
/*---------------------------------------------------------------------*/            
/*----- Comentarios      :                                        -----*/            
/*-----                                                           -----*/            
/*---------------------------------------------------------------------*/            
/*---------------------------------------------------------------------*/            
/*----- Drop Proc SP_TXMVTO_CNTB_I41                              -----*/            
/*----- Grant all On SP_TXMVTO_CNTB_I41 To PUBLIC                 -----*/            
/*----- exec SP_TXMVTO_CNTB_I41 '01', 7, '001', '000', 2005, 0, '0000000001' -----*/            
/*---------------------------------------------------------------------*/            
@ISCO_EMPR       TD_VC_002,            
@ISCO_USUA          TD_VC_008,
@IDFE_USUA          TD_DT_001,
@INNU_CNTB_EMPR  TD_IN_001,            
@ISCO_UNID_CNTB  TD_VC_003,            
@ISCO_OPRC_CNTB  TD_VC_003,            
@INNU_ANNO       TD_IN_004_ANNO,            
@INNU_MESE       TD_IN_002_MESE,         
@ISNU_ASTO       TD_VC_010,   
@IDFE_ASTO_CNTB  TD_DT_001,   
@ISTI_FILT       TD_VC_001,   
@ISCO_UNID_FILT  TD_VC_003  
As            
 Declare             
 @CSCO_CNTA_REII TD_VC_020,         
 @CSNU_ASTO      TD_VC_010,         
 @CDFE_ASTO_CNTB TD_DT_001,         
 @CSCO_CNTA_EMPR TD_VC_020,         
 @CSTI_AUXI_EMPR TD_VC_001,         
 @CSCO_AUXI_EMPR TD_VC_020,         
 @CSTI_DOCU      TD_VC_003,         
 @CSNU_DOCU      TD_VC_020,          
 @CDFE_DOCU      TD_DT_001,         
 @CDFE_DOCU_VENC TD_DT_001,         
 @CSTI_CAMB      TD_VC_003,         
 @CSCO_MONE      TD_VC_003,         
 @CNFA_CAMB      TD_NU_015_006,         
 @CNFA_CAMB_DIAR TD_NU_015_006,         
 @CSTI_OPER      TD_VC_003,         
 @CNIM_MVTO_ORIG TD_NU_016_004,         
 @CNIM_MVTO_CNTB TD_NU_016_004,         
 @CSDE_GLOS      TD_VC_100,         
 @CSTI_DOCU_REFE TD_VC_003,         
 @CSNU_DOCU_REFE TD_VC_020,         
 @CDFE_DOCU_REFE TD_DT_001,         
 @CSNO_GIRA      TD_VC_100,         
 @CDFE_ENTR_CHEQ TD_DT_001,         
 @CDFE_PROG_CHEQ TD_DT_001,         
 @CSCO_ORDE_SERV TD_VC_020,         
 @CSSI_MVTO_CNTB TD_VC_003,         
 @CSCO_UNID_ORIG TD_VC_003,         
 @CSCO_OPRC_ORIG TD_VC_003,         
 @CSNU_ASTO_ORIG TD_VC_010,         
 @CNNU_SECU_ORIG TD_IN_002,         
 @CSCO_CNTA_ORIG TD_VC_020,          
 @CSST_OTRS      TD_VC_020,         
 @CNNU_PROC      TD_IN_001,         
 @CNNU_PROC_SECU TD_IN_001,         
 @CSST_IMPR_CHEQ TD_VC_001,         
 @CSST_FLAG      TD_VC_020,         
 @CSST_GEST      TD_VC_001,         
 @CSST_REDO      TD_VC_001,         
 @CNCO_TABL_ORIG TD_IN_001,         
 @CSCO_CLAV_TAOR TD_VC_100,         
 @CSCO_TIPO_OPER TD_VC_003,         
 @CNIM_MVTO_RETE TD_NU_016_004,        
 @CSST_IMPR_RETE TD_VC_001,         
 @CSCO_USUA_APRO TD_VC_008,         
 @CDFE_USUA_APRO TD_DT_001_SIST,         
 @CNNU_SECU_DIST TD_IN_001,         
 @CNPO_DIST      TD_NU_009_004,         
 @CSTI_DOCU_DETR TD_VC_003,         
 @CSNU_DOCU_DETR TD_VC_020,         
 @CDFE_DOCU_DETR TD_DT_001,         
 @VSST_REEM_ASIE     TD_VC_001,               
 @VSST_ACTI          TD_VC_001,              
 @VSST_LOGI          TD_VC_001,              
 @VSST_PROD          TD_VC_001,              
 @VSID_0005          TD_VC_003,              
 @VSID_CTAS_PROD     TD_VC_003,               
 @VSID_CTAS_INVE     TD_VC_003,               
 @VSST_GENE_ACTI     TD_VC_001,                
 @VSST_GENE_LOGI     TD_VC_001,               
 @VSST_GENE_PROD     TD_VC_001,         
 @VNNV_INFO_CNTA     TD_IN_001,         
 @VNIM_ORIG_REII     TD_NU_016_004,         
 @VNIM_CNTB_REII     TD_NU_016_004,         
 @VNNU_SECU          TD_IN_002,   
 @CSCO_UNID_CNTB     TD_VC_003,  
 @VSCO_UNID_CNTB     TD_VC_003  
        
Begin Tran SP_TXMVTO_CNTB_I41          
         
 Create Table #TWPLAN_EMPR         
 (CO_CNTA_EMPR Varchar(20) NULL,         
  CO_CNTA_REII Varchar(20) NULL)           
      
 Create Table #TWMVTO_CNTB      
 (CO_UNID_CNTB Varchar(3) NULL,   
 CO_CNTA_REII Varchar(20) NULL,       
 FE_ASTO_CNTB DateTime NULL,       
 CO_CNTA_EMPR Varchar(20) NULL,       
 TI_AUXI_EMPR Varchar(1) NULL,       
 CO_AUXI_EMPR Varchar(20) NULL,       
 TI_DOCU Varchar(3) NULL,       
 NU_DOCU Varchar(20) NULL,          
 FE_DOCU DateTime NULL,       
 FE_DOCU_VENC DateTime NULL,       
 TI_CAMB Varchar(3) NULL,       
 CO_MONE Varchar(3) NULL,       
 FA_CAMB Numeric(15, 6) NULL,       
 FA_CAMB_DIAR Numeric(15, 6) NULL,       
 TI_OPER Varchar(3) NULL,       
 IM_MVTO_ORIG Numeric(16, 4) NULL,       
 IM_MVTO_CNTB Numeric(16, 4) NULL,       
 DE_GLOS Varchar(100) NULL,       
 TI_DOCU_REFE Varchar(3) NULL,       
 NU_DOCU_REFE Varchar(20) NULL,       
 FE_DOCU_REFE DateTime NULL,       
 NO_GIRA Varchar(100) NULL,       
 FE_ENTR_CHEQ DateTime NULL,       
 FE_PROG_CHEQ DateTime NULL,       
 CO_ORDE_SERV Varchar(20) NULL,       
 SI_MVTO_CNTB Varchar(3) NULL,       
 CO_UNID_ORIG Varchar(3) NULL,       
 CO_OPRC_ORIG Varchar(3) NULL,       
 NU_ASTO_ORIG Varchar(10) NULL,       
 NU_SECU_ORIG Int NULL,       
 CO_CNTA_ORIG Varchar(20) NULL,       
 ST_OTRS Varchar(20) NULL,       
 NU_PROC Int NULL,       
 NU_PROC_SECU Int NULL,       
 ST_IMPR_CHEQ Varchar(1) NULL,       
 ST_FLAG Varchar(20) NULL,       
 ST_GEST Varchar(1) NULL,       
 ST_REDO Varchar(1) NULL,       
 CO_TABL_ORIG Int NULL,       
 CO_CLAV_TAOR Varchar(100) NULL,       
 CO_TIPO_OPER Varchar(3) NULL,       
 IM_MVTO_RETE Numeric(16, 4) NULL,        
 ST_IMPR_RETE Varchar(1) NULL,       
 CO_USUA_APRO Varchar(8) NULL,       
 FE_USUA_APRO DateTime NULL,       
 NU_SECU_DIST Int NULL,       
 PO_DIST Numeric(9, 4) NULL,       
 TI_DOCU_DETR Varchar(3) NULL,       
 NU_DOCU_DETR Varchar(20) NULL,       
 FE_DOCU_DETR DateTime NULL )      
      
 Create Table #TWMVTO_0001      
 ( CO_EMPR Varchar(2) NULL,       
 NU_CNTB_EMPR Int NULL,       
 CO_UNID_CNTB Varchar(3) NULL,       
 CO_OPRC_CNTB Varchar(3) NULL,       
 NU_ANNO Int NULL,       
 NU_MESE Int NULL,       
 NU_ASTO Varchar(10) NULL,         
 NU_SECU Int NULL,       
 FE_ASTO_CNTB DateTime NULL,       
 CO_CNTA_EMPR Varchar(20) NULL,       
 TI_AUXI_EMPR Varchar(1) NULL,       
 CO_AUXI_EMPR Varchar(20) NULL,       
 TI_DOCU Varchar(3) NULL,       
 NU_DOCU Varchar(20) NULL,          
 FE_DOCU DateTime NULL,       
 FE_DOCU_VENC DateTime NULL,       
 TI_CAMB Varchar(3) NULL,       
 CO_MONE Varchar(3) NULL,       
 FA_CAMB Numeric(15, 6) NULL,       
 FA_CAMB_DIAR Numeric(15, 6) NULL,       
 TI_OPER Varchar(3) NULL,       
 IM_MVTO_ORIG Numeric(16, 4) NULL,       
 IM_MVTO_CNTB Numeric(16, 4) NULL,       
 DE_GLOS Varchar(100) NULL,       
 TI_DOCU_REFE Varchar(3) NULL,       
 NU_DOCU_REFE Varchar(20) NULL,       
 FE_DOCU_REFE DateTime NULL,       
 NO_GIRA Varchar(100) NULL,       
 FE_ENTR_CHEQ DateTime NULL,       
 FE_PROG_CHEQ DateTime NULL,       
 CO_ORDE_SERV Varchar(20) NULL,       
 SI_MVTO_CNTB Varchar(3) NULL,       
 CO_UNID_ORIG Varchar(3) NULL,       
 CO_OPRC_ORIG Varchar(3) NULL,       
 NU_ASTO_ORIG Varchar(10) NULL,       
 NU_SECU_ORIG Int NULL,       
 CO_CNTA_ORIG Varchar(20) NULL,       
 ST_OTRS Varchar(20) NULL,       
 NU_PROC Int NULL,       
 NU_PROC_SECU Int NULL,       
 ST_IMPR_CHEQ Varchar(1) NULL,       
 ST_FLAG Varchar(20) NULL,       
 ST_GEST Varchar(1) NULL,       
 ST_REDO Varchar(1) NULL,       
 CO_TABL_ORIG Int NULL,       
 CO_CLAV_TAOR Varchar(100) NULL,       
 CO_TIPO_OPER Varchar(3) NULL,       
 IM_MVTO_RETE Numeric(16, 4) NULL,        
 ST_IMPR_RETE Varchar(1) NULL,       
 CO_USUA_APRO Varchar(8) NULL,       
 FE_USUA_APRO DateTime NULL,       
 NU_SECU_DIST Int NULL,       
 PO_DIST Numeric(9, 4) NULL,       
 TI_DOCU_DETR Varchar(3) NULL,       
 NU_DOCU_DETR Varchar(20) NULL,       
 FE_DOCU_DETR DateTime NULL,       
 CO_USUA_CREA Varchar(8) NULL,       
 FE_USUA_CREA DateTime NULL,         
 CO_USUA_MODI Varchar(8) NULL,       
 FE_USUA_MODI DateTime NULL)      
              
 Select @VSST_REEM_ASIE = ST_REEM_ASIE,         
        @VNNV_INFO_CNTA = NV_INFO_CNTA               
 From TMPARA_CONT               
 Where CO_EMPR = @ISCO_EMPR               
              
 -- levanta cuentas que han debido ser ajustadas durante el a?o anterior        
 Insert Into #TWPLAN_EMPR (CO_CNTA_EMPR, CO_CNTA_REII)    
 Select Distinct t2.CO_CNTA_EMPR,    
 (Case When IsNull(Rtrim(t2.CO_CNTA_REIB), '') = ''     
       Then t2.CO_CNTA_REIR     
       Else t2.CO_CNTA_REIB End)    
 From TMPLAN_ANNO t2    
 Where t2.CO_EMPR = @ISCO_EMPR    
 And t2.ST_CAPI = 'S'     ---- EVALUA SI SE CAPITALIZA O NO    
 And t2.ST_AJUS = 'S'    
 And DataLength(CO_CNTA_EMPR) = @VNNV_INFO_CNTA    
 And (IsNull(t2.CO_CNTA_REIR, '') != '' Or IsNull(t2.CO_CNTA_REIB, '') != '')    
 And t2.TI_SITU = 'ACT'    
 Order By t2.CO_CNTA_EMPR            
        
 Insert Into #TWMVTO_CNTB    
 ( CO_UNID_CNTB, CO_CNTA_REII, FE_ASTO_CNTB, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU,    
 FE_DOCU, FE_DOCU_VENC, TI_CAMB, CO_MONE, FA_CAMB, FA_CAMB_DIAR, TI_OPER, IM_MVTO_ORIG,    
 IM_MVTO_CNTB, DE_GLOS, TI_DOCU_REFE, NU_DOCU_REFE, FE_DOCU_REFE, NO_GIRA, FE_ENTR_CHEQ,    
 FE_PROG_CHEQ, CO_ORDE_SERV, SI_MVTO_CNTB, CO_UNID_ORIG, CO_OPRC_ORIG, NU_ASTO_ORIG, NU_SECU_ORIG,    
 CO_CNTA_ORIG, ST_OTRS, NU_PROC, NU_PROC_SECU, ST_IMPR_CHEQ, ST_FLAG, ST_GEST, ST_REDO,    
 CO_TABL_ORIG, CO_CLAV_TAOR, CO_TIPO_OPER, IM_MVTO_RETE,    
 ST_IMPR_RETE, CO_USUA_APRO, FE_USUA_APRO, NU_SECU_DIST, PO_DIST, TI_DOCU_DETR, NU_DOCU_DETR, FE_DOCU_DETR )    
 Select t1.CO_UNID_CNTB, t2.CO_CNTA_REII, t1.FE_ASTO_CNTB, t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU, t1.NU_DOCU,  
 t1.FE_DOCU, t1.FE_DOCU_VENC, t1.TI_CAMB, t1.CO_MONE, t1.FA_CAMB, t1.FA_CAMB_DIAR, t1.TI_OPER, t1.IM_MVTO_ORIG,       
 t1.IM_MVTO_CNTB, t1.DE_GLOS, t1.TI_DOCU_REFE, t1.NU_DOCU_REFE, t1.FE_DOCU_REFE, t1.NO_GIRA, t1.FE_ENTR_CHEQ,       
 t1.FE_PROG_CHEQ, t1.CO_ORDE_SERV, t1.SI_MVTO_CNTB, t1.CO_UNID_ORIG, t1.CO_OPRC_ORIG, t1.NU_ASTO_ORIG, t1.NU_SECU_ORIG,       
 t1.CO_CNTA_ORIG, t1.ST_OTRS, t1.NU_PROC, t1.NU_PROC_SECU, t1.ST_IMPR_CHEQ, t1.ST_FLAG, t1.ST_GEST, t1.ST_REDO,       
 t1.CO_TABL_ORIG, t1.CO_CLAV_TAOR, t1.CO_TIPO_OPER, t1.IM_MVTO_RETE,        
 t1.ST_IMPR_RETE, t1.CO_USUA_APRO, t1.FE_USUA_APRO, t1.NU_SECU_DIST, t1.PO_DIST, t1.TI_DOCU_DETR, t1.NU_DOCU_DETR, t1.FE_DOCU_DETR        
 From TXMVTO_CNTB t1, #TWPLAN_EMPR t2        
 Where t1.CO_EMPR = @ISCO_EMPR         
 And t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR         
 And ((@ISTI_FILT = 'T') Or (@ISTI_FILT = 'P' And t1.CO_UNID_CNTB = @ISCO_UNID_FILT))     
 And t1.CO_OPRC_CNTB = @ISCO_OPRC_CNTB  --- OPERACION DE APERTURA         
 And t1.NU_ANNO = @INNU_ANNO        
 And t1.NU_MESE = @INNU_MESE         
 And t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR         
  
      
 Declare CU_TXMVTO_CNTB_I41_1 cursor For            
  
 Select t1.CO_UNID_CNTB, t1.CO_CNTA_REII, t1.FE_ASTO_CNTB, t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR, t1.TI_DOCU, t1.NU_DOCU,    
 t1.FE_DOCU, t1.FE_DOCU_VENC, t1.TI_CAMB, t1.CO_MONE, t1.FA_CAMB, t1.FA_CAMB_DIAR, t1.TI_OPER, t1.IM_MVTO_ORIG,       
 t1.IM_MVTO_CNTB, t1.DE_GLOS, t1.TI_DOCU_REFE, t1.NU_DOCU_REFE, t1.FE_DOCU_REFE, t1.NO_GIRA, t1.FE_ENTR_CHEQ,       
 t1.FE_PROG_CHEQ, t1.CO_ORDE_SERV, t1.SI_MVTO_CNTB, t1.CO_UNID_ORIG, t1.CO_OPRC_ORIG, t1.NU_ASTO_ORIG, t1.NU_SECU_ORIG,       
 t1.CO_CNTA_ORIG, t1.ST_OTRS, t1.NU_PROC, t1.NU_PROC_SECU, t1.ST_IMPR_CHEQ, t1.ST_FLAG, t1.ST_GEST, t1.ST_REDO,       
 t1.CO_TABL_ORIG, t1.CO_CLAV_TAOR, t1.CO_TIPO_OPER, t1.IM_MVTO_RETE, t1.ST_IMPR_RETE, t1.CO_USUA_APRO, t1.FE_USUA_APRO,     
 t1.NU_SECU_DIST, t1.PO_DIST, t1.TI_DOCU_DETR, t1.NU_DOCU_DETR, t1.FE_DOCU_DETR        
 From #TWMVTO_CNTB t1      
 Order By t1.CO_UNID_CNTB, t1.CO_CNTA_REII  
  
Select @VSCO_UNID_CNTB = NULL  
      
 Open CU_TXMVTO_CNTB_I41_1            
 Fetch CU_TXMVTO_CNTB_I41_1 Into @CSCO_UNID_CNTB, @CSCO_CNTA_REII, @CDFE_ASTO_CNTB, @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR,     
 @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU, @CDFE_DOCU_VENC, @CSTI_CAMB, @CSCO_MONE, @CNFA_CAMB, @CNFA_CAMB_DIAR, @CSTI_OPER,     
 @CNIM_MVTO_ORIG, @CNIM_MVTO_CNTB, @CSDE_GLOS, @CSTI_DOCU_REFE, @CSNU_DOCU_REFE, @CDFE_DOCU_REFE, @CSNO_GIRA,     
 @CDFE_ENTR_CHEQ, @CDFE_PROG_CHEQ, @CSCO_ORDE_SERV, @CSSI_MVTO_CNTB, @CSCO_UNID_ORIG, @CSCO_OPRC_ORIG, @CSNU_ASTO_ORIG,     
 @CNNU_SECU_ORIG, @CSCO_CNTA_ORIG, @CSST_OTRS, @CNNU_PROC, @CNNU_PROC_SECU, @CSST_IMPR_CHEQ, @CSST_FLAG, @CSST_GEST,     
 @CSST_REDO,      @CNCO_TABL_ORIG, @CSCO_CLAV_TAOR, @CSCO_TIPO_OPER, @CNIM_MVTO_RETE, @CSST_IMPR_RETE, @CSCO_USUA_APRO,     
 @CDFE_USUA_APRO, @CNNU_SECU_DIST, @CNPO_DIST, @CSTI_DOCU_DETR, @CSNU_DOCU_DETR, @CDFE_DOCU_DETR        
         
 While @@Fetch_status = 0            
  Begin     
  
If @CSCO_UNID_CNTB != @VSCO_UNID_CNTB Or @VSCO_UNID_CNTB IS NULL  
Begin ---***  
 Select @VNNU_SECU = 0    
        
 Select @VNNU_SECU = IsNull(Max(NU_SECU), 0)    
 From TXMVTO_CNTB    
 Where CO_EMPR = @ISCO_EMPR         
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR         
 And CO_UNID_CNTB = @CSCO_UNID_CNTB        
 And CO_OPRC_CNTB = @ISCO_OPRC_CNTB        
 And NU_ANNO = @INNU_ANNO        
 And NU_MESE = @INNU_MESE        
 And NU_ASTO = @ISNU_ASTO        
        
 Select @VNNU_SECU = @VNNU_SECU + 1   
 Select @VSCO_UNID_CNTB = @CSCO_UNID_CNTB  
End   ----***       
         
 --  EXTRAE EL VALOR REI         
 Select @VNIM_ORIG_REII = 0       
 Select @VNIM_CNTB_REII = 0       
      
 Select @VNIM_ORIG_REII = IM_MVTO_ORIG, @VNIM_CNTB_REII = IM_MVTO_CNTB         
 From TXMVTO_CNTB         
 Where CO_EMPR = @ISCO_EMPR         
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR         
 And ((@ISTI_FILT = 'T') Or (@ISTI_FILT = 'P' And CO_UNID_CNTB = @ISCO_UNID_FILT))     
 And CO_OPRC_CNTB = @ISCO_OPRC_CNTB         
 And NU_ANNO = @INNU_ANNO        
 And NU_MESE = @INNU_MESE        
 And CO_CNTA_EMPR = @CSCO_CNTA_REII        
 And IsNull(TI_AUXI_EMPR, '%') = IsNull(@CSTI_AUXI_EMPR, '%')        
 And IsNull(CO_AUXI_EMPR, '%') = IsNull(@CSCO_AUXI_EMPR, '%')         
 And IsNull(TI_DOCU, '%') = IsNull(@CSTI_DOCU, '%')        
 And IsNull(NU_DOCU, '%') = IsNull(@CSNU_DOCU, '%')        
        
 Select @CNIM_MVTO_ORIG = IsNull(@CNIM_MVTO_ORIG, 0) + IsNull(@VNIM_ORIG_REII, 0)        
 Select @CNIM_MVTO_CNTB = IsNull(@CNIM_MVTO_CNTB, 0) + IsNull(@VNIM_CNTB_REII, 0)        
   
If @VNIM_ORIG_REII > 0 Or @VNIM_CNTB_REII > 0 --- SI HUBO AJUSTE ENTONCES CAPITALIZA  
 Begin   
 --- GRABA IMPORTE AJUSTADO POR INFLACION : VALOR CUENTA + VALOR REI         
 Insert Into #TWMVTO_0001 (CO_EMPR, NU_CNTB_EMPR, CO_UNID_CNTB, CO_OPRC_CNTB, NU_ANNO, NU_MESE, NU_ASTO,         
 NU_SECU, FE_ASTO_CNTB, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU, FE_DOCU, FE_DOCU_VENC,        
 TI_CAMB, CO_MONE, FA_CAMB, FA_CAMB_DIAR, TI_OPER, IM_MVTO_ORIG, IM_MVTO_CNTB, DE_GLOS, TI_DOCU_REFE,         
 NU_DOCU_REFE, FE_DOCU_REFE, NO_GIRA, FE_ENTR_CHEQ, FE_PROG_CHEQ, CO_ORDE_SERV, SI_MVTO_CNTB, CO_UNID_ORIG,         
 CO_OPRC_ORIG, NU_ASTO_ORIG, NU_SECU_ORIG, CO_CNTA_ORIG, ST_OTRS, NU_PROC, NU_PROC_SECU, ST_IMPR_CHEQ,         
 ST_FLAG, ST_GEST, ST_REDO, CO_TABL_ORIG, CO_CLAV_TAOR, CO_TIPO_OPER, IM_MVTO_RETE, ST_IMPR_RETE, CO_USUA_APRO,         
 FE_USUA_APRO, NU_SECU_DIST, PO_DIST, TI_DOCU_DETR, NU_DOCU_DETR, FE_DOCU_DETR, CO_USUA_CREA, FE_USUA_CREA,         
 CO_USUA_MODI, FE_USUA_MODI)        
 Values         
(@ISCO_EMPR, @INNU_CNTB_EMPR, @CSCO_UNID_CNTB, @ISCO_OPRC_CNTB, @INNU_ANNO, @INNU_MESE, @ISNU_ASTO,         
 @VNNU_SECU, @CDFE_ASTO_CNTB, @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSTI_DOCU, @CSNU_DOCU,         
 @CDFE_DOCU, @CDFE_DOCU_VENC, @CSTI_CAMB, @CSCO_MONE, @CNFA_CAMB, @CNFA_CAMB_DIAR, @CSTI_OPER,         
 @CNIM_MVTO_ORIG, @CNIM_MVTO_CNTB, @CSDE_GLOS , @CSTI_DOCU_REFE, @CSNU_DOCU_REFE, @CDFE_DOCU_REFE, @CSNO_GIRA,        
 @CDFE_ENTR_CHEQ, @CDFE_PROG_CHEQ, @CSCO_ORDE_SERV, @CSSI_MVTO_CNTB, @CSCO_UNID_ORIG,         
 @CSCO_OPRC_ORIG, @CSNU_ASTO_ORIG, @CNNU_SECU_ORIG, @CSCO_CNTA_ORIG, @CSST_OTRS, @CNNU_PROC, @CNNU_PROC_SECU,         
 @CSST_IMPR_CHEQ, @CSST_FLAG, @CSST_GEST, @CSST_REDO, @CNCO_TABL_ORIG, @CSCO_CLAV_TAOR, @CSCO_TIPO_OPER,         
 @CNIM_MVTO_RETE, @CSST_IMPR_RETE, @CSCO_USUA_APRO, @CDFE_USUA_APRO, @CNNU_SECU_DIST, @CNPO_DIST,         
 @CSTI_DOCU_DETR, @CSNU_DOCU_DETR, @CDFE_DOCU_DETR, @ISCO_USUA, @IDFE_USUA, @ISCO_USUA, @IDFE_USUA)        
        
 If @@ERROR <> 0            
  Begin             
      Rollback Transaction SP_TXMVTO_CNTB_I41            
      Return            
  End        
        
 Select @VNNU_SECU = @VNNU_SECU + 1         
        
 -- GRABA : VALOR REI - VALOR REI (IMPORTES ORIGEN Y CONTABLE EN CERO)        
 Insert Into #TWMVTO_0001 (CO_EMPR, NU_CNTB_EMPR, CO_UNID_CNTB, CO_OPRC_CNTB, NU_ANNO, NU_MESE, NU_ASTO,         
 NU_SECU, FE_ASTO_CNTB, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU, FE_DOCU, FE_DOCU_VENC,        
 TI_CAMB, CO_MONE, FA_CAMB, FA_CAMB_DIAR, TI_OPER, IM_MVTO_ORIG, IM_MVTO_CNTB, DE_GLOS, TI_DOCU_REFE,         
 NU_DOCU_REFE, FE_DOCU_REFE, NO_GIRA, FE_ENTR_CHEQ, FE_PROG_CHEQ, CO_ORDE_SERV, SI_MVTO_CNTB, CO_UNID_ORIG,         
 CO_OPRC_ORIG, NU_ASTO_ORIG, NU_SECU_ORIG, CO_CNTA_ORIG, ST_OTRS, NU_PROC, NU_PROC_SECU, ST_IMPR_CHEQ,         
 ST_FLAG, ST_GEST, ST_REDO, CO_TABL_ORIG, CO_CLAV_TAOR, CO_TIPO_OPER, IM_MVTO_RETE, ST_IMPR_RETE, CO_USUA_APRO,         
 FE_USUA_APRO, NU_SECU_DIST, PO_DIST, TI_DOCU_DETR, NU_DOCU_DETR, FE_DOCU_DETR, CO_USUA_CREA, FE_USUA_CREA,         
 CO_USUA_MODI, FE_USUA_MODI)        
 Select Top 1 CO_EMPR, NU_CNTB_EMPR, CO_UNID_CNTB, CO_OPRC_CNTB, NU_ANNO, NU_MESE, @ISNU_ASTO,         
 @VNNU_SECU, FE_ASTO_CNTB, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU, FE_DOCU, FE_DOCU_VENC,        
 TI_CAMB, CO_MONE, FA_CAMB, FA_CAMB_DIAR, TI_OPER, 0, 0, DE_GLOS , TI_DOCU_REFE,        
 NU_DOCU_REFE, FE_DOCU_REFE, NO_GIRA, FE_ENTR_CHEQ, FE_PROG_CHEQ, CO_ORDE_SERV, SI_MVTO_CNTB, CO_UNID_ORIG,         
 CO_OPRC_ORIG, NU_ASTO_ORIG, NU_SECU_ORIG, CO_CNTA_ORIG, ST_OTRS, NU_PROC, NU_PROC_SECU, ST_IMPR_CHEQ,         
 ST_FLAG, ST_GEST, ST_REDO, CO_TABL_ORIG, CO_CLAV_TAOR, CO_TIPO_OPER, IM_MVTO_RETE, ST_IMPR_RETE, CO_USUA_APRO,         
 FE_USUA_APRO, NU_SECU_DIST, PO_DIST, TI_DOCU_DETR, NU_DOCU_DETR, FE_DOCU_DETR, @ISCO_USUA, @IDFE_USUA,         
 @ISCO_USUA, @IDFE_USUA        
 From TXMVTO_CNTB         
 Where CO_EMPR = @ISCO_EMPR         
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR         
 And CO_UNID_CNTB = @CSCO_UNID_CNTB         
 And CO_OPRC_CNTB = @ISCO_OPRC_CNTB         
 And NU_ANNO = @INNU_ANNO        
 And NU_MESE = @INNU_MESE        
 And CO_CNTA_EMPR = @CSCO_CNTA_REII        
 And IsNull(TI_AUXI_EMPR, '%') = IsNull(@CSTI_AUXI_EMPR, '%')        
 And IsNull(CO_AUXI_EMPR, '%') = IsNull(@CSCO_AUXI_EMPR, '%')         
 And IsNull(TI_DOCU, '%') = IsNull(@CSTI_DOCU, '%')        
 And IsNull(NU_DOCU, '%') = IsNull(@CSNU_DOCU, '%')        
       
 If @@ERROR <> 0            
  Begin             
      Rollback Transaction SP_TXMVTO_CNTB_I41            
      Return            
  End        
       
 Select @VNNU_SECU = @VNNU_SECU + 1       
End /*FIN If @CNIM_MVTO_ORIG > 0 Or @CNIM_MVTO_CNTB > 0  */    
        
 Fetch CU_TXMVTO_CNTB_I41_1 Into @CSCO_UNID_CNTB, @CSCO_CNTA_REII,        
 @CDFE_ASTO_CNTB, @CSCO_CNTA_EMPR, @CSTI_AUXI_EMPR, @CSCO_AUXI_EMPR, @CSTI_DOCU, @CSNU_DOCU,          
 @CDFE_DOCU, @CDFE_DOCU_VENC, @CSTI_CAMB, @CSCO_MONE, @CNFA_CAMB, @CNFA_CAMB_DIAR, @CSTI_OPER, @CNIM_MVTO_ORIG,         
 @CNIM_MVTO_CNTB, @CSDE_GLOS, @CSTI_DOCU_REFE, @CSNU_DOCU_REFE, @CDFE_DOCU_REFE, @CSNO_GIRA, @CDFE_ENTR_CHEQ,         
 @CDFE_PROG_CHEQ, @CSCO_ORDE_SERV, @CSSI_MVTO_CNTB, @CSCO_UNID_ORIG, @CSCO_OPRC_ORIG, @CSNU_ASTO_ORIG, @CNNU_SECU_ORIG,         
 @CSCO_CNTA_ORIG, @CSST_OTRS, @CNNU_PROC, @CNNU_PROC_SECU, @CSST_IMPR_CHEQ, @CSST_FLAG, @CSST_GEST, @CSST_REDO,         
 @CNCO_TABL_ORIG, @CSCO_CLAV_TAOR, @CSCO_TIPO_OPER, @CNIM_MVTO_RETE,        
 @CSST_IMPR_RETE, @CSCO_USUA_APRO, @CDFE_USUA_APRO, @CNNU_SECU_DIST, @CNPO_DIST, @CSTI_DOCU_DETR, @CSNU_DOCU_DETR, @CDFE_DOCU_DETR        
         
 End         
        
Close CU_TXMVTO_CNTB_I41_1        
Deallocate CU_TXMVTO_CNTB_I41_1       
     
 -- INSERTA EN EL ASTO DE APERTURA      
 Insert Into TXMVTO_CNTB(CO_EMPR, NU_CNTB_EMPR, CO_UNID_CNTB, CO_OPRC_CNTB, NU_ANNO, NU_MESE, NU_ASTO,         
 NU_SECU, FE_ASTO_CNTB, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU, FE_DOCU, FE_DOCU_VENC,        
 TI_CAMB, CO_MONE, FA_CAMB, FA_CAMB_DIAR, TI_OPER, IM_MVTO_ORIG, IM_MVTO_CNTB, DE_GLOS, TI_DOCU_REFE,         
 NU_DOCU_REFE, FE_DOCU_REFE, NO_GIRA, FE_ENTR_CHEQ, FE_PROG_CHEQ, CO_ORDE_SERV, SI_MVTO_CNTB, CO_UNID_ORIG,         
 CO_OPRC_ORIG, NU_ASTO_ORIG, NU_SECU_ORIG, CO_CNTA_ORIG, ST_OTRS, NU_PROC, NU_PROC_SECU, ST_IMPR_CHEQ,         
 ST_FLAG, ST_GEST, ST_REDO, CO_TABL_ORIG, CO_CLAV_TAOR, CO_TIPO_OPER, IM_MVTO_RETE, ST_IMPR_RETE, CO_USUA_APRO,         
 FE_USUA_APRO, NU_SECU_DIST, PO_DIST, TI_DOCU_DETR, NU_DOCU_DETR, FE_DOCU_DETR, CO_USUA_CREA, FE_USUA_CREA,         
 CO_USUA_MODI, FE_USUA_MODI)     
 Select CO_EMPR, NU_CNTB_EMPR, CO_UNID_CNTB, CO_OPRC_CNTB, NU_ANNO, NU_MESE, NU_ASTO,         
 NU_SECU, @IDFE_ASTO_CNTB, CO_CNTA_EMPR, TI_AUXI_EMPR, CO_AUXI_EMPR, TI_DOCU, NU_DOCU, FE_DOCU, FE_DOCU_VENC,        
 TI_CAMB, CO_MONE, FA_CAMB, FA_CAMB_DIAR, TI_OPER, Round(IM_MVTO_ORIG, 2), Round(IM_MVTO_CNTB, 2), DE_GLOS, TI_DOCU_REFE,         
 NU_DOCU_REFE, FE_DOCU_REFE, NO_GIRA, FE_ENTR_CHEQ, FE_PROG_CHEQ, CO_ORDE_SERV, SI_MVTO_CNTB, CO_UNID_ORIG,         
 CO_OPRC_ORIG, NU_ASTO_ORIG, NU_SECU_ORIG, CO_CNTA_ORIG, ST_OTRS, NU_PROC, NU_PROC_SECU, ST_IMPR_CHEQ,         
 ST_FLAG, ST_GEST, ST_REDO, CO_TABL_ORIG, CO_CLAV_TAOR, CO_TIPO_OPER, IM_MVTO_RETE, ST_IMPR_RETE, CO_USUA_APRO,         
 FE_USUA_APRO, NU_SECU_DIST, PO_DIST, TI_DOCU_DETR, NU_DOCU_DETR, FE_DOCU_DETR, CO_USUA_CREA, FE_USUA_CREA,         
 CO_USUA_MODI, FE_USUA_MODI      
 From #TWMVTO_0001      
 ORDER BY NU_ANNO, NU_MESE, NU_ASTO, NU_SECU, FE_ASTO_CNTB  
  
Commit Tran SP_TXMVTO_CNTB_I41          
Return         
       
/*--------------------------------- Fin ---------------------------------*/            



GO
